home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / os2 / psutils / src / fixwwps.pl < prev    next >
Text File  |  1996-02-21  |  363b  |  21 lines
  1. @PERL@
  2. # fixwwps: get semi-conforming PostScript out of Windows Write file
  3. #
  4. # Copyright (C) Angus J. C. Duggan 1991-1995
  5. # See file LICENSE for details.
  6.  
  7. $page = 1;
  8.  
  9. while (<>) {
  10.    if (/^(%!.*) EPSF-\d.\d/) {
  11.       print $1, "\n";
  12.    } elsif (/^SS/) {
  13.       print "%%Page: $page $page\n";
  14.       print $_;
  15.       $page++;
  16.    } else {
  17.       print $_;
  18.    }
  19. }
  20. @END@
  21.